inherited crdMeter: TcrdMeter
  Left = 415
  Top = 435
  Width = 751
  Height = 415
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 361
    Width = 743
    inherited BitBtn1: TBitBtn
      Left = 536
    end
    inherited BitBtn2: TBitBtn
      Left = 638
    end
  end
  inherited ToolBar1: TToolBar
    Width = 743
    Height = 0
  end
  object PageControl1: TPageControl [2]
    Left = 0
    Top = 0
    Width = 743
    Height = 361
    ActivePage = tsMain
    Align = alClient
    TabOrder = 2
    OnChange = PageControl1Change
    object tsMain: TTabSheet
      Caption = #1054#1089#1085#1086#1074#1085#1099#1077
      OnShow = tsMainShow
      object gbMeterParams: TGroupBox
        Left = 0
        Top = 0
        Width = 295
        Height = 333
        Align = alLeft
        Caption = ' '#1057#1074#1086#1081#1089#1090#1074#1072' '#1089#1095#1077#1090#1095#1080#1082#1072' '
        TabOrder = 0
        object Label21: TLabel
          Left = 16
          Top = 18
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1048#1044
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 16
          Top = 128
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 16
          Top = 84
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1047#1072#1074#1086#1076#1089#1082#1086#1081' '#8470
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 16
          Top = 194
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1058#1080#1087' '#1089#1095#1077#1090#1095#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label30: TLabel
          Left = 16
          Top = 106
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1090#1072#1090#1091#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label31: TLabel
          Left = 16
          Top = 150
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080' '#1091#1089#1090'.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label33: TLabel
          Left = 16
          Top = 172
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1075#1086#1089'.'#1087#1086#1074#1077#1088#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label34: TLabel
          Left = 16
          Top = 40
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1051#1057' '#1089#1095#1077#1090#1095#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label43: TLabel
          Left = 16
          Top = 62
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1052#1077#1089#1090#1086' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 16
          Top = 214
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 16
          Top = 236
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080' '#1089#1085#1103#1090#1080#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 16
          Top = 258
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050#1086#1101#1092'. '#1090#1088#1072#1085#1089#1092#1086#1088#1084#1072#1094#1080#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeMeterID: TDBEditEh
          Left = 144
          Top = 15
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'ID'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Visible = True
        end
        object dbeMeterMountDate: TDBDateTimeEditEh
          Left = 144
          Top = 125
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MOUNT_DATE'
          DataSource = dsc_Meters
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 5
          Visible = True
        end
        object dbeMeterNum: TDBEditEh
          Left = 144
          Top = 81
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          DataField = 'METER_NUM'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Visible = True
        end
        object dbeMeterMountInd: TDBEditEh
          Left = 144
          Top = 147
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MOUNT_METERIND'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 6
          Visible = True
        end
        object dbeMeterVerDate: TDBDateTimeEditEh
          Left = 144
          Top = 169
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          DataField = 'VERIFY_DATE'
          DataSource = dsc_Meters
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          Visible = True
        end
        object dbeMeterNLS: TDBEditEh
          Left = 144
          Top = 37
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          DataField = 'LS'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
        object DBLookupComboboxEh1: TDBLookupComboboxEh
          Left = 144
          Top = 190
          Width = 145
          Height = 19
          AlwaysShowBorder = True
          DataField = 'METER_TYPE'
          DataSource = dsc_Meters
          EditButtons = <>
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dscMeterTypes
          TabOrder = 8
          Visible = True
        end
        object DBLookupComboboxEh2: TDBLookupComboboxEh
          Left = 144
          Top = 102
          Width = 145
          Height = 19
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'STATUS'
          DataSource = dsc_Meters
          EditButtons = <>
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dscRMeterStatus
          ReadOnly = True
          TabOrder = 4
          Visible = True
        end
        object DBDateTimeEditEh1: TDBDateTimeEditEh
          Left = 144
          Top = 211
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'DISMOINT_DATE'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 9
          Visible = True
        end
        object DBEditEh1: TDBEditEh
          Left = 144
          Top = 233
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'DISMOUNT_IND'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 10
          Visible = True
        end
        object bChangeStatus: TButton
          Left = 144
          Top = 292
          Width = 145
          Height = 25
          Caption = #1057#1084#1077#1085#1080#1090#1100' '#1089#1090#1072#1090#1091#1089
          TabOrder = 12
          OnClick = bChangeStatusClick
        end
        object dbeK_Trans: TDBEditEh
          Left = 144
          Top = 255
          Width = 145
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          DataField = 'K_TRANS'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
          Visible = True
        end
        object dbeMeterName: TDBComboBoxEh
          Left = 144
          Top = 59
          Width = 145
          Height = 19
          AlwaysShowBorder = True
          DataField = 'NAME'
          DataSource = dsc_Meters
          DropDownBox.Sizable = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          TabOrder = 2
          Visible = True
          OnEnter = dbeMeterNameDropDown
        end
      end
    end
    object tsPh: TTabSheet
      Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      ImageIndex = 1
      OnHide = tsPhHide
      OnShow = tsPhShow
      object gbControlGrid: TGroupBox
        Left = 258
        Top = 0
        Width = 477
        Height = 333
        Align = alRight
        Caption = ' '#1050#1086#1085#1090#1088#1086#1083#1100#1085#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' ('#1086#1073#1093#1086#1076#1099') '
        TabOrder = 0
        object dbgMeterContols: TDBGridEh
          Left = 2
          Top = 15
          Width = 473
          Height = 316
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_MeterControls
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ACT_DATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'PH'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 258
        Height = 333
        Align = alClient
        Caption = ' '#1047#1072#1103#1074#1083#1077#1085#1085#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1079#1072' 12 '#1084#1077#1089' '
        TabOrder = 1
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 15
          Width = 254
          Height = 316
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dscMeterPH
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'RDOCYEAR'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RDOCMONTH'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RMAXIND'
              Footers = <>
              Width = 81
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
    end
    object tsAddress: TTabSheet
      Caption = #1040#1076#1088#1077#1089#1072
      ImageIndex = 3
      OnHide = tsAddressHide
      object gbMeterAddrs: TGroupBox
        Left = 0
        Top = 0
        Width = 735
        Height = 333
        Align = alClient
        Caption = ' '#1043#1076#1077' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085' '
        TabOrder = 0
        object Panel18: TPanel
          Left = 2
          Top = 15
          Width = 731
          Height = 27
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            731
            27)
          object bShowAddrs: TButton
            Left = 1
            Top = 1
            Width = 75
            Height = 25
            Anchors = [akTop]
            Caption = #1055#1086#1082#1072#1079#1072#1090#1100
            TabOrder = 0
            OnClick = bShowAddrsClick
          end
        end
        object dbgMeterAddrs: TDBGridEh
          Left = 2
          Top = 42
          Width = 731
          Height = 289
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_MeterAddrs
          Enabled = False
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'STREET'
              Footers = <>
              Width = 220
            end
            item
              EditButtons = <>
              FieldName = 'HOUSE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'APPARTS'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'LETTER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
              Width = 231
            end
            item
              EditButtons = <>
              FieldName = 'SRV_NAME'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
    end
    object tsMeterHist: TTabSheet
      Caption = #1048#1089#1090#1086#1088#1080#1103
      ImageIndex = 3
      OnHide = tsOperationsHide
      OnShow = tsOperationsShow
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 24
        Width = 735
        Height = 309
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dscMeterHist
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        OddRowColor = clInactiveCaptionText
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        ReadOnly = True
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DOCDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CREATER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'CREATEDATE'
            Footers = <>
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
      object ToolBar6: TToolBar
        Left = 0
        Top = 0
        Width = 735
        Height = 24
        ButtonHeight = 23
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Images = MAIN.ImageList
        TabOrder = 1
        object ToolButton26: TToolButton
          Left = 0
          Top = 0
          Action = aOperDelete
        end
      end
    end
    object tsLostPart: TTabSheet
      Caption = #1044#1086#1083#1103' '#1087#1086#1090#1077#1088#1100
      ImageIndex = 4
      object ToolBar2: TToolBar
        Left = 0
        Top = 0
        Width = 735
        Height = 24
        ButtonHeight = 23
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Images = MAIN.ImageList
        TabOrder = 0
        object ToolButton6: TToolButton
          Left = 0
          Top = 0
          Action = aAddLostPart
        end
        object ToolButton5: TToolButton
          Left = 23
          Top = 0
          Action = aDelLostPart
        end
        object ToolButton7: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton7'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object ToolButton8: TToolButton
          Left = 54
          Top = 0
          Action = aCommitLostPart
        end
        object ToolButton9: TToolButton
          Left = 77
          Top = 0
          Action = aRollbackLostPart
        end
      end
      object dbgLostPart: TDBGridEh
        Left = 0
        Top = 24
        Width = 735
        Height = 309
        Align = alClient
        AllowedOperations = [alopInsertEh, alopDeleteEh, alopAppendEh]
        DataGrouping.GroupLevels = <>
        DataSource = dscLostPart
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        OddRowColor = clInactiveCaptionText
        Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghEnterAsTab, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowDetailPanel.Color = clBtnFace
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        Columns = <
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'LOST_PART'
            Footers = <>
            Width = 107
          end
          item
            DisplayFormat = 'dd.mm.yyyy'
            EditButtons = <>
            FieldName = 'BDATE'
            Footers = <>
            Width = 104
          end
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'CREATEDATE'
            Footers = <>
            Width = 136
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    inherited aSave: TAction
      Enabled = False
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aOperDelete: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      ImageIndex = 2
      OnExecute = aOperDeleteExecute
    end
    object aAddLostPart: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1083#1102' '#1087#1086#1090#1077#1088#1100
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1083#1102' '#1087#1086#1090#1077#1088#1100
      ImageIndex = 9
      OnExecute = aAddLostPartExecute
    end
    object aDelLostPart: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1083#1102' '#1087#1086#1090#1077#1088#1100
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1083#1102' '#1087#1086#1090#1077#1088#1100
      ImageIndex = 2
      OnExecute = aDelLostPartExecute
    end
    object aCommitLostPart: TAction
      ImageIndex = 0
      OnExecute = aCommitLostPartExecute
    end
    object aRollbackLostPart: TAction
      ImageIndex = 3
      OnExecute = aRollbackLostPartExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdMeter'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      
        'PageControl1.tsAddress.gbMeterAddrs.dbgMeterAddrs.<P>.Columns.Co' +
        'lumnsIndex'
      
        'PageControl1.tsAddress.gbMeterAddrs.dbgMeterAddrs.<P>.Columns.<F' +
        'orAllItems>.Width'
      'PageControl1.tsMeterHist.DBGridEh2.<P>.Columns.ColumnsIndex'
      
        'PageControl1.tsMeterHist.DBGridEh2.<P>.Columns.<ForAllItems>.Wid' +
        'th'
      
        'PageControl1.tsPh.gbControlGrid.dbgMeterContols.<P>.Columns.Colu' +
        'mnsIndex'
      
        'PageControl1.tsPh.gbControlGrid.dbgMeterContols.<P>.Columns.<For' +
        'AllItems>.Width')
    Left = 612
    Top = 38
  end
  object ds_Meters: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE METERS'
      'SET '
      '    METER_NUM = :METER_NUM,'
      '    METER_TYPE = :METER_TYPE,'
      '    NAME = :NAME,'
      '    LS = :LS,'
      '    VERIFY_DATE = :VERIFY_DATE,'
      '    K_TRANS = :K_TRANS'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select m.id, m.meter_num, m.controler_id, m.meter_type,'
      '       m.bdate as mount_date, '
      '       m.mount_meterind, m.k_trans,'
      '       m.accpoint_id, m.usetransi_id,'
      '       m.meter_status as status,'
      
        '       (select rm.name from rmeter_status rm where rm.id = m.met' +
        'er_status) as rstatus,'
      '       m.verify_date, m.actno, seal, m.manfdate, m.name, m.ls,'
      '       m.modifydate, m.modifyuserid, '
      '       m.edate as dismoint_date, '
      
        '       (select first(1) mi.ph from meter_ind mi, m_accpoint_acts' +
        ' maa'
      '          where mi.is_deleted = 0 and mi.act_id = maa.id'
      
        '            and maa.is_deleted = 0 and maa.accpoint_id = m.accpo' +
        'int_id'
      '            and mi.meter_id = m.id and maa.act_date = m.edate'
      '          order by maa.act_date desc) as dismount_ind,'
      '       m.direction,'
      '       m.note, mt.capacity, mt.precis, mt.name as mtype'
      'from meters m, meter_types mt'
      'where(  m.id = :pmeter_id'
      '  and mt.id = m.meter_type'
      '     ) and (     M.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select m.id, m.meter_num, m.controler_id, m.meter_type,'
      '       m.bdate as mount_date, '
      '       m.mount_meterind, m.k_trans,'
      '       m.accpoint_id, m.usetransi_id,'
      '       m.meter_status as status,'
      
        '       (select rm.name from rmeter_status rm where rm.id = m.met' +
        'er_status) as rstatus,'
      '       m.verify_date, m.actno, seal, m.manfdate, m.name, m.ls,'
      '       m.modifydate, m.modifyuserid, '
      '       m.edate as dismoint_date, '
      
        '       (select first(1) mi.ph from meter_ind mi, m_accpoint_acts' +
        ' maa'
      '          where mi.is_deleted = 0 and mi.act_id = maa.id'
      
        '            and maa.is_deleted = 0 and maa.accpoint_id = m.accpo' +
        'int_id'
      '            and mi.meter_id = m.id and maa.act_date = m.edate'
      '          order by maa.act_date desc) as dismount_ind,'
      '       m.direction,'
      '       m.note, mt.capacity, mt.precis, mt.name as mtype'
      'from meters m, meter_types mt'
      'where m.id = :pmeter_id'
      '  and mt.id = m.meter_type')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 64
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_MetersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_MetersMETER_NUM: TFIBStringField
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_MetersCONTROLER_ID: TFIBIntegerField
      FieldName = 'CONTROLER_ID'
    end
    object ds_MetersMETER_TYPE: TFIBIntegerField
      FieldName = 'METER_TYPE'
    end
    object ds_MetersMOUNT_DATE: TFIBDateField
      FieldName = 'MOUNT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MetersMOUNT_METERIND: TFIBBCDField
      FieldName = 'MOUNT_METERIND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MetersK_TRANS: TFIBIntegerField
      DefaultExpression = '1'
      FieldName = 'K_TRANS'
    end
    object ds_MetersACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object ds_MetersUSETRANSI_ID: TFIBIntegerField
      DefaultExpression = '0'
      FieldName = 'USETRANSI_ID'
    end
    object ds_MetersSTATUS: TFIBIntegerField
      FieldName = 'STATUS'
    end
    object ds_MetersRSTATUS: TFIBStringField
      FieldName = 'RSTATUS'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_MetersVERIFY_DATE: TFIBDateField
      FieldName = 'VERIFY_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MetersACTNO: TFIBStringField
      FieldName = 'ACTNO'
      EmptyStrToNull = True
    end
    object ds_MetersSEAL: TFIBStringField
      FieldName = 'SEAL'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MetersMANFDATE: TFIBDateField
      FieldName = 'MANFDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MetersNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_MetersLS: TFIBStringField
      FieldName = 'LS'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MetersMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MetersMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
    object ds_MetersDISMOINT_DATE: TFIBDateField
      FieldName = 'DISMOINT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MetersDISMOUNT_IND: TFIBBCDField
      FieldName = 'DISMOUNT_IND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MetersDIRECTION: TFIBIntegerField
      DefaultExpression = '1'
      FieldName = 'DIRECTION'
    end
    object ds_MetersNOTE: TFIBStringField
      FieldName = 'NOTE'
      EmptyStrToNull = True
    end
    object ds_MetersCAPACITY: TFIBIntegerField
      FieldName = 'CAPACITY'
    end
    object ds_MetersPRECIS: TFIBIntegerField
      FieldName = 'PRECIS'
    end
    object ds_MetersMTYPE: TFIBStringField
      FieldName = 'MTYPE'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object ds_MeterAddrs: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select v.name, v.street, v.house, v.apparts, v.letter, sg.name a' +
        's srv_name'
      '  from meters m'
      
        '  left join proc_accpoint_get_childs (m.accpoint_id, m.bdate, m.' +
        'edate, 1) p on 1=1'
      '  join dogovors d on d.accpoint_id = p.raccpoint_id'
      '  join v_abons v on v.id = d.abonent_id'
      '  join services s on s.id = d.service_id'
      '  join services sg on sg.id = s.group_id'
      
        '  where exists (select 1 from proc_dogovor_get_status (d.id, cur' +
        'rent_date) where rstatus = 1)'
      '    and m.id = :pmeter_id'
      'order by v.street, v.house, v.apparts, v.letter')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 92
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_MeterAddrsSTREET: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072
      DisplayWidth = 10
      FieldName = 'STREET'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MeterAddrsHOUSE: TFIBStringField
      DisplayLabel = #1044#1086#1084
      DisplayWidth = 6
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MeterAddrsAPPARTS: TFIBIntegerField
      DisplayLabel = #1050#1074'.'
      DisplayWidth = 5
      FieldName = 'APPARTS'
    end
    object ds_MeterAddrsLETTER: TFIBStringField
      DisplayLabel = #1083#1080#1090'.'
      DisplayWidth = 5
      FieldName = 'LETTER'
      Size = 3
      EmptyStrToNull = True
    end
    object ds_MeterAddrsNAME: TFIBStringField
      DisplayLabel = #1050#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MeterAddrsSRV_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SRV_NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object ds_MeterControls: TpFIBDataSet
    SelectSQL.Strings = (
      'select ma.act_date, mi.ph'
      '  from m_accpoint_acts ma'
      '  join meter_ind mi on mi.act_id = ma.id'
      '    and ma.is_deleted = 0'
      '    and mi.is_deleted = 0'
      '    and mi.meter_id = :pmeter_id'
      '    and ma.act_type = 3'
      'order by ma.act_date desc')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 120
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_MeterControlsACT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103' '#1082#1086#1085#1090#1088#1086#1083#1100#1085#1099#1093' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      DisplayWidth = 15
      FieldName = 'ACT_DATE'
    end
    object ds_MeterControlsPH: TFIBBCDField
      DisplayLabel = #1050#1086#1085#1090#1088#1086#1083#1100#1085#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      DisplayWidth = 15
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
  end
  object dsc_MeterControls: TDataSource
    DataSet = ds_MeterControls
    Left = 572
    Top = 120
  end
  object dsc_MeterAddrs: TDataSource
    DataSet = ds_MeterAddrs
    Left = 572
    Top = 92
  end
  object dsc_Meters: TDataSource
    DataSet = ds_Meters
    OnDataChange = dsc_MetersDataChange
    Left = 572
    Top = 64
  end
  object trMeters: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 464
    Top = 50
  end
  object prMeterDelete: TpFIBStoredProc
    Transaction = trUpdate
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure PROC_METER_DELETE :pmeter_id')
    Left = 498
    Top = 50
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object dsMeterPH: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from PROC_CASHIER_PAYSIND(null, :pmeter_id)')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 38
    poSQLINT64ToBCD = True
    oFetchAll = True
    object dsMeterPHRDOCYEAR: TFIBIntegerField
      DisplayLabel = #1043#1086#1076
      FieldName = 'RDOCYEAR'
    end
    object dsMeterPHRDOCMONTH: TFIBIntegerField
      DisplayLabel = #1052#1077#1089#1103#1094
      FieldName = 'RDOCMONTH'
    end
    object dsMeterPHRMAXIND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'RMAXIND'
      Size = 3
      RoundByScale = True
    end
  end
  object dscMeterPH: TDataSource
    DataSet = dsMeterPH
    Left = 572
    Top = 38
  end
  object dsMeterHist: TpFIBDataSet
    DeleteSQL.Strings = (
      'update meter_hist mh'
      'set mh.is_deleted = 1'
      'where mh.id = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select mh.id, mh.docdate, mot.name,'
      
        '       (select rname from user_getfullname (mh.createuserid)) as' +
        ' creater,'
      '       mh.createdate'
      '  from meter_hist mh'
      '  join rmeter_oper_types mot on mot.id = mh.oper_type'
      '  where mh.is_deleted = 0'
      '    and mh.meter_id = :pmeter_id'
      '  order by mh.docdate desc, mot.prior asc')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 148
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object dsMeterHistID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsMeterHistDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DOCDATE'
    end
    object dsMeterHistNAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsMeterHistCREATER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      DisplayWidth = 25
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsMeterHistCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'CREATEDATE'
    end
  end
  object dscMeterHist: TDataSource
    DataSet = dsMeterHist
    Left = 572
    Top = 148
  end
  object dsMeterTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select id, name from meter_types'
      'order by 2')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 176
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object dsMeterTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsMeterTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object dscMeterTypes: TDataSource
    DataSet = dsMeterTypes
    Left = 572
    Top = 176
  end
  object dsRMeterStatus: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from rmeter_status')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trUpdate
    Left = 540
    Top = 204
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object dsRMeterStatusID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsRMeterStatusNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dscRMeterStatus: TDataSource
    DataSet = dsRMeterStatus
    Left = 572
    Top = 204
  end
  object trUpdate: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 540
    Top = 238
  end
  object dsLostPart: TpFIBDataSet
    UpdateSQL.Strings = (
      ''
      '    ')
    DeleteSQL.Strings = (
      'UPDATE METER_LOST_PART'
      'SET '
      '    is_deleted = 1'
      'WHERE'
      '    ID = :OLD_ID')
    InsertSQL.Strings = (
      'INSERT INTO METER_LOST_PART('
      '    LOST_PART,'
      '    BDATE,'
      '    METER_ID'
      ')'
      'VALUES('
      '    :LOST_PART,'
      '    :BDATE,'
      '    :METER_ID'
      ')'
      'returning id')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    LOST_PART,'
      '    BDATE,'
      '    CREATEDATE,'
      '    METER_ID'
      'FROM METER_LOST_PART '
      'where IS_DELETED = 0'
      '  and METER_ID = :pmeter_id'
      '  and METER_LOST_PART.ID = :OLD_ID'
      '     '
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    LOST_PART,'
      '    BDATE,'
      '    CREATEDATE,'
      '    METER_ID'
      'FROM METER_LOST_PART '
      'where IS_DELETED = 0'
      '  and METER_ID = :pmeter_id'
      'order by bdate desc')
    AfterOpen = dsLostPartAfterOpen
    BeforeOpen = dsLostPartBeforeOpen
    BeforePost = dsLostPartBeforePost
    Transaction = trLostPart
    Database = MAINDM.pMainDatabase
    Left = 608
    Top = 204
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object dsLostPartID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
      ReadOnly = True
    end
    object dsLostPartLOST_PART: TFIBBCDField
      DisplayLabel = #1044#1086#1083#1103' '#1087#1086#1090#1077#1088#1100' (%)'
      FieldName = 'LOST_PART'
      Required = True
      Size = 3
      RoundByScale = True
    end
    object dsLostPartBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'BDATE'
      Required = True
    end
    object dsLostPartCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
      ReadOnly = True
    end
    object dsLostPartMETER_ID: TFIBIntegerField
      FieldName = 'METER_ID'
    end
  end
  object dscLostPart: TDataSource
    DataSet = dsLostPart
    Left = 640
    Top = 204
  end
  object trLostPart: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 608
    Top = 238
  end
  object dsMeterNameList: TpFIBDataSet
    UpdateRecordTypes = [cusUnmodified]
    SelectSQL.Strings = (
      'select trim(m.name) as name'
      'from meters m, m_accpoint ma, m_accpoint_type mt'
      'where m.name is not null'
      '  and ma.id = m.accpoint_id'
      '  and ma.account_type = mt.id'
      
        '  and mt.group_acc = (select mt1.group_acc from m_accpoint ma1, ' +
        'm_accpoint_type mt1'
      
        '                      where ma1.id = :paccpoint_id and mt1.id = ' +
        'ma1.account_type)'
      'group by 1'
      'having count(1) > 2'
      'order by count(1) desc')
    AutoCalcFields = False
    AllowedUpdateKinds = []
    Database = MAINDM.pMainDatabase
    Left = 346
    Top = 38
    object dsMeterNameListNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscMeterNameList: TDataSource
    DataSet = dsMeterNameList
    Left = 381
    Top = 38
  end
end
